Unit
lmddlgS

Declaration

TLMDWLFormEvent = procedure(Sender:TObject; aForm:TForm; var Accept:Boolean) of object;